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FFFFFRRFFE CCCCCCCC HH HH  AAAAAA — RRRRRRRR ; 
FRFFFFFFEE CCCCCCCC OHH HH  AAAAAA _— RRRRRRRR ; 
FF cc HH HH AA AA RR RR ; 
FF CC HH HH AA AA RR RR : 
FF CC HH HH AA AA RR RR : 
FF CC HH HH AA AA RR RR ; 
FEFFFFFE CC HHHHHHHHHH = AA AA RRRRRRRR : 
FFFFFFFF CC HHHHHHHHHH = AA AA RRRRRRRR F 
FF CC HH HH AAAAAAAAAA RR RR : 
FF CC HH HH AAAAAAAAAA RR RR ; 
FF CC HH HH AA AA RR RR sibtoh : 
FF CC HH HH AA AA RR RR sacl 3 
FF CCCCCCCC HH HH AA AA RR RR Gelbte ; 
FF CCCCCCCC OHH HH AA AA RR RR saidee ; 
LL 11111 SSSSSSSS : 
LL eeeee SSSSSSSS | : 
LL I] SS ; 
LL I] $$ : 
LL I] S$ : 
LL I] $$ ; 
LL I] SSSSSS ; 
LL Il SSSSSS 

LL I] $$ 

LL I] S$ | 

LL I] SS | 

LL I] $$ 

LLLLLLLLLL eeeee SSSSSSSS | 

CLLLLLLLLL eeeenl SSSSSSSS 
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EDTSFCHAR = put a char in format buffer bese -1984 00:19:02 VAX-11 Bliss-32 V4.0-74 Page 1 
107 808- 1384 13333: 82 DLeKSVMGMASTERSCEDT  SRCIFCHAR.BLI: 1 . (1) | v04 
oe 001 © XTITLE "EDTSFCHAR = put a char in format buffer' | ; 
; § 4 MODULE EDTSFCHAR ( ! Put a char in format buffer ; 
3 ? RR7 poent = 'v04-000' ! File: FCHAR.BLI Edit: J8S1015 ; 
3 5 0005 1 BEGIN 5 
$ 6 0006 1! F 
s 4 i444 ! RRR ARARA AERA E EERE EAA RARE AAA AE TERE ARETE REET EERE TARA RHEE ETKERERER ERE | ° 
: '® * : 
: u 0009 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 2 ; 
; 10 0010 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * . 
i} O11 1 ie ALL RIGHTS RESERVED. ‘ | ; 
° .* * | ° 
3 18 $O18 1 '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
3 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ; 
. 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
; 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 4 
; 17 0017 1 !* OTHER PERSON. NO TITLE 70 AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
; 18 Bats : ‘* TRANSFERRED. * | ; 
3 '® * $ 
; 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
; 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
@ O0¢2 1 is CORPORATION. * | ; 
D4 :® & a 
3 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | : 
; 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ‘ 
; & 0026 1 !* ~ | 3 
Par 0027 1 !* * : 
: e8 0028 1 Pear eee eee eee RARER AE AAA EE RETA AAA AEE EE TERRE ERAEAERERKEREAKARA AE g 
3 9 0029 1! F 
3 $0 $086 1 : 
3 OB} 0031 1 !++ ; ; 
; & 0032 1 | FACILITY: EDT == The DEC Standard Editor | : 
3 ge 00335 1! : 
; 0034 1 ! ABSTRACT: s 
A 0035 1! 5 
. <a 0036 1! Put a character in the option buffer, expanding control characters 3 
; $f Boe : and watching for Line overflow. | : 
° - | o 
3 24 s't84 : ENVIRONMENT: Runs at any access mode - AST reentrant | : 
; 33 bos : : AUTHOR: Bob Kushlis, CREATION DATE: March 18, 1979 : 
3 § Bez ! } MODIFIED BY: : 
; 045 1 ! 1-001 = Original. DJS 19-FEB-1981. This module was created by 3 
3 0046 1! Sabres ting routine EDTSSFMT_CH from module FORMAT. 3 
3 0047 1! 1-008 = Regularize headers. JBS 05-Mar-1981 3 
; 048 1 ! 1-005 = Change output of <FF> to user string. STS OTeagtetver : 
3 049 1 ! 1-004 = Don't count <FF>'’s width twice. 38 o5“"x5,'9 : 
3 50 1 ! 1-005 - Correct appearance of <CR>. JBS 07-May-1982 3 
; Bees 1! 1- $ - Add supplemental set from gee STD 169. JBS 11-Aug-1982 3 
; 38 1 ' 1-007 = Update EDT$$G_PRV_COL. JBS O~Sep-1982 ; 
; 53 1! 1- 8 - Remove external declaration of EDISSFMT_LIT, not used. JBS 05-Oct-1982 3 
: 054 1! I- = Don't increment EDT$$G_PRV_COL beyond the size of the screen, JBS 16-Oct-1982 ; 
; 055 1 ! 1-010 = Don't output the buffer pased on the terminal's width. JBS 16-0ct-198 3 
; 928 1 ! 1-011 = Remove optimization of ; mple characters, now done by caller. JBS 04-Jan-1983 : 
: 0057 1 ' 1-012 = Add conditional for VT220 support. JBS 10-Feb-1983 : 
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} = 
1 


1:7 
; 7 
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char in format buffer 1b-se geno 138 99: 3: ¢ 


Take out unecessary declarations. SMB 23-Feb-1983 


Put character names in DATA and revise th 
Correct display on 8-bit terminals. JBS 


67° 


a 
Mar-19 


VAX=11 
DISK$V men 


985 the table. 
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EDTSF CHAR EDTSFCHAR = put a char in format buffer 16-Sep-1984 00:19:02 VAX-11 Bliss-32 V4.0-74 Page 3 
v04-000 Declarations 14-Sep-1984 12:23:04 DISKSVMSMASTER: CEDT.SRCJFCHAR.BLI;1 (2) 
; «64 063 1 ZSBTTL ‘Declarations’ ; 
3; 65 064 1! ‘ 
3 66 065 1 ! TABLE OF CONTENTS: ° 
Soe 0066 1! : 
; «668 067 1 : 
; & O88 1 REQUIRE ‘EDTSRC: TRAROUNAM'; ‘ 
2c ae 0507 1 : 
3 71 b208 1 FORWARD ROUTINE ° 
Rag. 509 1 EDTSSFMT_CH : NOVALUE; . 
SB 8219 1 ‘ 
ae 212 1 + INCLUDE FILES 
; 76 0318 1! | : 
2 29 0514 1 : 
; 78 0515 1 REQUIRE ‘EDTSRC:EDTREQ'; 7 
. * 0650 1 ° 
3 80 0651 1 LIBRARY ‘EDTSRC:SUPPORTS'; : 
Pi. we b63¢ 1 ° 
: 8 065 1 LIBRARY ‘EDTSRC: TRANSLATE’; - 
; 8 0654 1 ° 
s 84 0655 1! ‘ 
> oe 0656 1 ! MACROS: 
; & 0657 1! 
s 87 0658 1! NONE “ 
s 88 0659 1! ° 
: 89 0660 1 ! EQUATED SYMBOLS: 
4 90 0661 1! 
Fees p66¢ 1! NONE 
; F 0665 1! 
$ S 0664 1 ! OWN STORAGE: 
: 94 0665 1! 
; 95 0666 1! NONE 
: 96 0667 1! 
2 97 066 1 ! EXTERNAL REFERENCES: 
; 0669 1! 
3 GG 0670 1! In the routine 


2 ee eeeEOEOEEeoe—eE—E— EES = — — 
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ERT SRS HAR EDTSFCHAR = put a char in format buffer 16-Sep-1984 90:19:08 VAX-11 BLliss-32 hed bo Page 4 
v04-000 EDTSSFMT_CH = put a char in format buffer 14-Sep-1984 :23: DISKSVMSMASTER: CEDT.SRCJFCHAR.BLI;1 (3). 
: 193 or) } ZSBTTL ‘EDTSSFMT_CH = put a char in format buffer’ 

; 108 £78 1 GLOBAL ROUTINE EDTSSFMT_CH ( ! Put a char in the format buffer 

> 104 74 «4 ! Character to print 

; 105 75 (1 ) : NOVALUE = 

: 106 676 1 | 
; 10 0677 1 !+44 

3 + 0678 : FUNCTIONAL DESCRIPTION: 

; 110 680 1! Place a character in the format buffer. If the character would cause 
s 111 0681 1! the buffer to overflow, or a Line to be longer than the terminal width, 
$ \\¢ Bose 1! then write the buffer first. Control chraracters are printed out either 

3; 6 1! with a special mnemonic Like <CR> or as “letter. Tabs are expanded into 
3 «6116 0684 1! the correct number of spaces. If this is not an eight-bit terminal, 
: (115 0685 1! all characters above 12/7 are printed_using a name in <>. If this is an 
: 116 0686 1! eight-bit terminal controls above 127 are printed as <mnemonic>, reserved 
; 17 0687 1! positions above 127 are printed as <Xnn>, where nn is the hex for the 

; «118 0688 1! character. | 
3; «119 0689 1! 

: 120 0690 1 ! FORMAL PARAMETERS: 
3 \$1 0691 1! ' 
. | ¢ 0692 1! #FC The character to print 

3; Ve 0693 1! 

; 126 0694 1% ! IMPLICIT INPUTS: 

3 tee 0695 1! | 
3; le 0696 1! EDTS$G_TI_WID 

: 127 0697 1! EDT$$G_EIGHT BIT 
: 128 0698 1 | EDT$$G_FMT_LAPOS 
: 129 0699 1! 
: 1350 0700 1 ! IMPLICIT OUTPUTS: 

s T5i 0701 1! 

3 138 0708 1! EDT$$G_FMT_LNPOS 

: 2 0703 1! EDTS$$G_PRV_COL 
; «(134 0706 1! 

: «135 14 1 ! ROUTINE VALUE: 

: 136 706 1: | 
: 137 0707 1! NONE 
s 133 0708 1! 
; «139 0709 1 ! SIDE EFFECTS: | 
: 140 0710 1! 
s 141 0711 1! NONE 

: is Oris 1! | 
3 (14 0713 1 !-- 
7 (146 714 «1 
3; «6145 715 BEGIN 

3 4 ay 

; #14 71 EXTERNAL ROUTINE 

: 148 718 EDTSSFMT_TEXT : NOVALUE, ! Output the text for form feed 
: 169 tak EDTSSSTORE_FMTCH : NOVALUE; ! Put a character in the format buffer | 
; «151 o781 eateamm, , 

; 136 7 § EDTS$G_TI_WID ! Terminal width 

> 15 7 EDT$$G_EIGHT BIT, i Is terminal in eight-bit mode? 

; 13 4 : EDTS$G_FMT_LAPOS, ! The current column number 

3 136 t 07 $ ZIF SUPPORT_VT220 

s 5 7 ITHEN 
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EDTSF CHAR FCHAR = put a char in format buffer 16-Sep-1984 00:19: VAX-11 Bliss-32 V4.0-74 Pa 5 
O4+000 SFMT_CH c put a char in format buffer 14-Sep-19 4 9933350 SI EKSUMGMASTERSCEDT SRCTECHAR-BLI:1 ” (3). 
; 158 
185 y 
160 U 


<FI 
A_CHAR_NAMES, ! Names of some characters 


DT$$ 
DT$$K_CHAR_NAMES_LEN, ' Length of the name table 
DTS$$G_PRV 3 ! Cursor column 


C = .FC; 
ZIF_ ( NOT SUPPORT_vT220) 
XTHE 


N 
C = .C AND &X°7F'; 
aFI 


ccr 


te 
Watch for special cases. 


SELECTONE .C OF 
SET 


CASC_K_TAB) : 
BEGIN 


BEGIN 

sere m ie* “ds 
UNTIL ((.EDTSSG_FMT_LNPOS AND 7) EQL 0) 
END; | 


CASC_K_FF] : 
% BEGIN | 


! Handle form feed specially. 
: EDTSSFMT_TEXT (1); 
END; 


KAR GVO OP VERA OOS VEAP OR VOU FINI OD Un Rowe 


maa a at a at a a a a a a a a a a as ss 


COTHERWISE) : 
_ BEGIN 
This is not a special case character, dispatch on its type. 
CAGE FP TCR_ CR Fare {(.C, 0, 2, 2, 0] FROM O TO 3 OF 


(0) 


H 

1) 

RELSE EDTSS$B_CHAR_INFO : BLOCKVECTOR (256, 1, BYTE], ! Information about each character 
EDTSSB_CHAR_INFO : BLOCKVECTOR (128, 1, BYTE], ! Information about each character 
4 

4 

4 

& 

i BEGIN 

4 


PAR 20 OOO UNE UN 0 OD NOU EWN 0 ODNOA NEW (0 ODO UE WN C ODNOUS WOOD fe 
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= put a char in format buffer 14-Sep-1984 


H 
This is a simple character; it can be printed on this terminal in one column. 
Bump the column number by the amount occupied by this character. 


EDTSS$G_FMT_LNPOS = .EDTSSG_FMT_LNPOS + 1; 
EDTSS$STORE-FMTCH (.C); 


IF (.EDTS$G_PRV_COL NEQ (.EDTS$G_TI_WID = 1)) THEN EDTS$G_PRV_COL = .EDT$$G_PRV_COL + 1; 
END; 


{1] : 
BEGIN 
‘4 


This character is to be output as * followed by the character code plus 64. 
; EDTSSFMT_CH (XC'*"); 
EDTSSFMT—CH (.C + 64); 
END; 
(2) : 
* BEGIN 
i This character has a special text form. find it in the table 


' and output the pg form surrounded by <>. However, characters above the C1 controls are 
} output as themselves on 8-bit terminals. 


CAL 
REP_PTR 
REP CHAR; 


%IF SUPPORT_VT220 
XTHEN 


i ates nie aie AND (.C GEQ %X'AO")) 
BEGIN 


te 
! This is a legitimate character in the DEC Multinational supplemental set, being displayed 
on an eight-bit terminal. 


EDTS$$G_FMT_LNPOS = .EDTS$$G_FMT_LNPOS + 1; 
EDTSSSTORE-FMTCH (.C); 


IF (,EDTS$G_PRV_COL NEQ (.EDT$$G_TI_WID - 1)) 


THEN 
EDTS$$G_PRV_COL = .EDT$$G_PRV_COL + 1; 
END 
ELSE 
IF I 
BEGIN 
REP_PTR = CHSPLUS (CHSFIND_CH (EDTS$S$K_CHAR_NAMES_LEN, EDTSSA_CHAR_NAMES, .C), 1); 
EDTSSFMT_CH (ZC°<'); 
REP_CHAR™= CHSRCHAR_A (REP_PTR); 
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ut a char in format buffer bese -1984 00:19: VAX-11 Bliss-32 V4.0-74 Pp 
“ . 90:33 be DISKSVMSMASTER: CEDT.SRCJFCHAR.BLI;1 niet (38 


- 


ef 


Nee . " 


-TITLE EDTSFCHAR EDTSFCHAR = put a char in format buff 
er 
- IDENT \V04-000\ 
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EDTSF CHAR EDTSFCHAR = put a char in format buffer 16-Sep-1984 219: VAX-11 Bliss-32 V4.0-74 Page 7. 

Tbe 000 EDTSSFMT_CH "> put a char in format buffer 12-888: 38 90:33:82 DISKSVMSMASTER: CEDT.SRCJFCHAR.BLI;1 . (3). 
: 3 4 WHILE ((.REPLCHAR GEQ 2X'20") AND (.REP_CHAR LEQ 2X*7E")) DO | 
; 74 44 6 EDTSSFMT_CH (.REP_CHAR); : 
; 275 45 REP_CHAR™= CHSRCHAR_A (REP_PTR); | ; 
; a8 ze8 ; ; 
: 7 84 $ 
; 278 48 EDTSSFMT_CH (ZC'>"); | ; 
3 79 49 4 END; $ 
; 280 50 4 | F 
3 Ht 0 26 | 3 
5 8 5 (3) : : 
; 54 4 BEGIN 3 
3 5 0855 4 !+ 3 
3 oS bees ? This character is to be output as <Xnn>, where nn is the hex for the character. ; 
3 88 0858 4 : 
; 289 0859 4 LOCAL 3 
; 290 0860 4 HEX_DIGIT_1, ; 
; 1 0861 4 HEX_DIGIT_2; : 
; a 0862 4 3 
; 0865 4 EDTSSFMT_CH (2C°<'); : 
3 94 08 4 EDTSSFMT_CH (2C'X"); 3 
; 99 0865 4 HEX_DIGIT_1 = (.C*=4) + 2C'0'; | ; 
; a O86? ‘ IF (.HEX_DIGIT_1 GTR %C'9") THEN HEX_DIGIT_1 = .HEX_DIGIT_1 = %C°9" + XC°A® = 1; ; 
3 99 0869 4 EDTSSFMT_CH (.HEX_DIGIT 1); | é 
: 300 0870 4 HEX_DIGIT_2 = (.C7AND 2R'OF") + 2C°0"; ; 
3 Og st 2 If (.HEX_DIGIT_2 GTR %C°9") THEN HEX_DIGIT_2 = .HEX_DIGIT_2 = 2C°9" + ZC°A® = 1; : 
; 04 0874 4 EDTSSFMT_CH (.HEX_DIGIT_2); ; 
: 305 0875 4 EDTSSFMT_CH (ZC'>"); : 
3 5] 087 END; 3 
: 30 087 TES; 3 
; 308 0878 3 
: 309 0879 END; 3 
; 10 0880 TES; : 
3 11 0881 3 
3 SZ 0882 1 END; ! of routine EDTSSFMT_CH : 
-EXTRN EDTSSFMT_TEXT, EDTSSSTORE_FMTCH F 
~EXTRN EDT$$G_TT WID EDTS$$G_EIGAT_BIT F 
-EXTRN EDTS$G_FMT_LNPOS | ; 
“EXTRN EDT$S$B~CHAR_INFO | ; 
-EXTRN EDTS$A~CHAR-NAMES | ; 
-EXTRN EDTSS$K~CHAR-NAMES_LEN | : 
-EXTRN EDTS$G_P COL 


-PSECT _EDTSCODE.NOWRT, SHR, PIC,2 


EDTSF CHAR EDISFCHAR = put a char in format buffer b-se -$ep-1984 VAX=-11 Bliss-32 V4.0-7 Page 8 
- - put a char in format buffer ep- K$V D he CHAR.BLI; (3) | 
Oe 000 EDTSSFMT_CH har in f¢ buf f i 5 . 1382 99: 33 83 DISKSVMSMASTER: CEDT. SRCJF 2 | 
.ENTRY EDTSSFMT_CH, Save R2,R3,R4,R5,R6,R7,RB ; 0673 | : 
: 990000006 00° | E 20002 MOVAB EDT$$G_PRV_CoL : : 
G MOVAB EDTSS6 FMTLN NPOS, R?7 : ; 
FD AF 10 MOVAB EDTSS$FAT_CA, R : ; 
4 AC D 14 MOVL FC, f 3 ar40 ; 
D 18 CMPL § r : 0754. : 
6 12 00018 BNEG $ ; | : 
dD 10 18: PUSHL #32 3 0759) ‘ 
66 ee. 1F CALLS #1 eo8gTarnt CH : ; 
7 67 9 BITB Fpt $$G_FMT_LNPOS, #7 + 0761 F 
F6 1 BNEQ : : 
04 0 RET + 0755 : 
0c 52 bl 8 28: CMPL ¢ #12 + 0765 | ; 
OA 12 6 8 BNEQ § : ; 
or DD 00020 PUSHL #1 + 0770 : 
000000006 00 1 FB O00eF CALLS #1, EDTSSFMT_TEXT : ; 
04 000 RET 0751 ; 
55 0000000060042 92 92 EF 00037 3$: EXTZV ng: iB: EDTS$B_CHAR_INFOLCI, RS : 0 0779) ; 
0 CF 00041 CASEL : ; 
A 45 4$: . WORD : F 
0073 0017 000 0027 0045 4$ i$ 48, | ; 
6$-4$,- : ; 
11$-4$ : ; 
1D 11 90040 BRB 1s : 0788 F 
7E 5E gf 9A OOO4F 5S: MOVZBL #94 =(SP) : 0800 : 
66 1 FB 00053 CALLS “EDTSSFMT_CH : : 
40  A2 0056 PUSHAB Satcs + 0801 ; 
0094 31 0005 BRW 15$ ; : 
24 000000006 99 £9 005¢ 6$: BLBC  EDTS$$G_EIGHT_BIT, 8$ : 0819 : 
000000A0 =F ; DI 9063 CPL #160 : : 
3 D6 dodge 7$: INCL EDTS$G_FMT_LNPOS : 082¢ F 
2 00 006 PUSHL ¢ ; 08 
000000006 00 1 Fe 99 CALLS #1, EDTSS$SSTORE_FMTCH ; 
50 000000006 00 1 ¢3 0007 SUBL3 EDT _T1_Q1D, RO : 0829 
50 68 D1 0007F CMPL Epis G_PRV-COL, RO ; 
6F 13 00082 BEQL 6$ : 
48 6 ase Incl EDT$$G_PRV_COL : O83) 
50 000000006 E 8$: MOVAB EDTSSK_CHAR_NAMES_LEN, RO ; $838 
000000006 00 50 A a6 Loce im RO, “EDTSSA_CHAR_NAMES ; 
p4 9 CLRL ss RV : 
54 01 Al 9E 0009A 98: MOVAB ican), REP_PTR : | 
C DD PUSHL : 0839 | 
6 1 FB OOOAO 108: CALLS EDTSSFMT_CH : 
4 9A OOOA MOVZBL a PTR)+, REP_CHAR ; 0849 
0 D1 Ag CMPL  REP_CHAR, #32 > 084 
4 9 A BLSS 3 
0000007E &F i p| 3 cHPL REP _CHAR, #126 : 
3 bb PUSHL R P_CHAR ; 0844 | 
‘ i$ mer chun EDISSFAT_CH peex 
E 58 BF OA ROVZBL nb, (SP) : 0864 | 
én 1 FB CALLS #1, EDTSSEMT CH ; 
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EDTSF CHAR EDTSFCHAR = put a char in format buffer tbese -1984 219: VAX-11 Bliss-32 V4.0-74 P 
Oat 000 EDTSSFMT_CH - put a char in format buffer 1 ~g00n 138i 90:33:82 TT EKSUMEHASTERSLEDT SRCTFCHAR.BLI;1 wes aid 
50 7m we. C4 ASHL #4, C, RO : 0865 
C ¢9 ADDL2 #48. HEX DIGIT } : 
p cc cHPL eee , #8 + 0867 
50 C D1 ADDL2 #7, HEX DIGIT 1 : 
0 DD 000D4 128 PUSHL HEX DIGIT 1 : 0869 
4 1 FB D6 CALLS #1, EDTSSFMT_CH : 
50 52 4 EF 000D EXT y #0, #4, C, HEX_DIGIT_2 + 0870 
0 CO DE ADDL2 #48, HEX bIGIT : 
9 D1 E CMPL HEX_DIGIT_2, #5 + 0872 
13 £4 BLEG 138 : 
50 ¢ Eg ADDL2 #7, HEX bIGiT.2 : 
0 DD OO0E9 13$:  PUSHL HEX_DIGIT + 0874 
66 gi FB OOOEB CALLS #1, EDTSSFMT_CH : 
E OD OOOEE 14$:  PUSHL #6 + 0875 
an 01 FB OOOFO 158: CALLS #1, EDTSSFMT_CH : 
04 OOOF3 16$: RET + 0882 


; Routine Size: 244 bytes, Routine Base: _EDTSCODE + 0000 


3; 313 0883 1 
314 0884 1 !<BLF/PAGE> 


kK 9 
EDTSFCHAR EDTSFCHAR = put a char in format buffer 16-Sep-1984 2 VAX-11 Bliss-32 V4.0-7 
v04-000 EDTSSFMT_CH “ put a char in format buffer 14-Sep F-19846 99: 33 88 DISKSVMSMAS STER: CEDT. SRC FCHAR.BLI;1 
: 16 0885 1 END ! of l DTSFCHAR 
: 317 OBee ! of module E C 
; 318 08 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 244 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
ce |. 4 ieee Stee S *") = mney Symbols -<------ Pages Processing 
: File Total Loaded Percent Mapped Time 
: -$255$DUA28: CEDT.SRCJEDT.L32;1 377 2 0 40 00:00.2 
3 =$522SUAce: LEDT SSRCIPSECTS.L32 2 1 50 7 +4 00.1 
; ~$255$DUAG8: [EDT SRC JSUPPORTS. e4). 1 2 1 50 5 0:00.1 
: 7$255$pUA28:CEDT. * SRCITRANSLATES L32;1 b 0 0 57 00:00.2 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=L1IS$:F CHAR/OBJ=OBJ$:FCHAR MSRC$:F CHAR.BLI/UPDATE=(ENHS$:F CHAR) 
Size: 244 code + 0 data bytes 


0:16. 
Slopsed” Hass 09: §8-¢ 
Lines/CPU Min: 
Lexemes/CPU-Min: 8994 
Memory Used: 109 pages 
Compication Complete 
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